RTEST0.TMP[CM,DEK] - www.SailDart.org

perm filename RTEST0.TMP[CM,DEK] blob sn#791398 filedate 1985-04-24 generic text, type T, neo UTF8
This is METAFONT, WAITS Version 0.81 (preloaded base=plain 85.4.11)  24 APR 1985 20:58
**\mode=imagen;input rtest0
(RTEST0.MF[CM,DEK] (CMBASE.MF[CM,DEK]) (CMR10.MF[CM,DEK]) (TEST0.MF[CM,DEK]
{tracingedges:=2}
{tracingtitles:=1}
{tracingequations:=1}
{tracingcapsules:=1}
{tracingspecs:=1}
{tracingpens:=1}
{tracingchoices:=1}
{tracingstats:=2}
{tracingoutput:=1}
{tracingmacros:=3}

filldraw<expr>->fill.counterclockwise(EXPR0)withpen.currentpen

stroke<text>->begingroup.forsuffixes.e=l,r:path_.e:=(TEXT2);endfor.if.cycle.pat
h_.l:errmessage"Beware: `stroke' isn't intended for cycles";fi.path_.l--reverse
.path_.r--cycle.endgroup
(SUFFIX0)<-
(SUFFIX1)<-stroke
(TEXT2)<-z3'e{left}..z5e{right}..z6e{right}..z7e{up}
{begingroup}
{forsuffixes}
{loop value=l}

z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-3'l
{begingroup}
{endgroup}

z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-5l
{begingroup}
{endgroup}

z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-6l
{begingroup}
{endgroup}

z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-7l
{begingroup}
{endgroup}
Path at line 26, before choices:
(15.5,0.50002){-4096,0}
 ..{4096,0}(15.5,5.49995){4096,0}
 ..{4096,0}(24.16673,-7.5){4096,0}
 ..{0,4096}(28.50003,0)

Path at line 26, after choices:
(15.5,0.50002)..controls (12.1667,0.50002) and (12.1667,5.49995)
 ..(15.5,5.49995)..controls (22.19969,5.49995) and (17.46704,-7.5)
 ..(24.16673,-7.5)..controls (27.34901,-7.5) and (28.50003,-3.6672)
 ..(28.50003,0)

{path_.l:=path}
{[repeat the loop]}
{loop value=r}

z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-3'r
{begingroup}
{endgroup}

z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-5r
{begingroup}
{endgroup}

z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-6r
{begingroup}
{endgroup}

z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-7r
{begingroup}
{endgroup}
Path at line 26, before choices:
(15.5,0.49997){-4096,0}
 ..{4096,0}(15.5,5.5){4096,0}
 ..{4096,0}(24.51537,-3.51515){4096,0}
 ..{0,4096}(28.49998,0)

Path at line 26, after choices:
(15.5,0.49997)..controls (12.16664,0.49997) and (12.16664,5.5)
 ..(15.5,5.5)..controls (20.47897,5.5) and (19.53639,-3.51515)
 ..(24.51537,-3.51515)..controls (26.63565,-3.51515) and (28.49998,-2.03265)
 ..(28.49998,0)

{path_.r:=path}
{[repeat the loop]}
{if}
{cycle(path)}
{false}

--->{curl1}..{curl1}

--->{curl1}..{curl1}
{reverse(path)}
Path at line 26, before choices:
(15.5,0.50002)..controls (12.1667,0.50002) and (12.1667,5.49995)
 ..(15.5,5.49995)..controls (22.19969,5.49995) and (17.46704,-7.5)
 ..(24.16673,-7.5)..controls (27.34901,-7.5) and (28.50003,-3.6672)
 ..(28.50003,0){curl 1}
 ..{curl 1}(28.49998,0)..controls (28.49998,-2.03265) and (26.63565,-3.51515)
 ..(24.51537,-3.51515)..controls (19.53639,-3.51515) and (20.47897,5.5)
 ..(15.5,5.5)..controls (12.16664,5.5) and (12.16664,0.49997)
 ..(15.5,0.49997){curl 1}
 ..{curl 1}cycle

Path at line 26, after choices:
(15.5,0.50002)..controls (12.1667,0.50002) and (12.1667,5.49995)
 ..(15.5,5.49995)..controls (22.19969,5.49995) and (17.46704,-7.5)
 ..(24.16673,-7.5)..controls (27.34901,-7.5) and (28.50003,-3.6672)
 ..(28.50003,0)..controls (28.50002,0) and (28.5,0)
 ..(28.49998,0)..controls (28.49998,-2.03265) and (26.63565,-3.51515)
 ..(24.51537,-3.51515)..controls (19.53639,-3.51515) and (20.47897,5.5)
 ..(15.5,5.5)..controls (12.16664,5.5) and (12.16664,0.49997)
 ..(15.5,0.49997)..controls (15.5,0.49998) and (15.5,0.5)
 ..cycle

{endgroup}
(EXPR0)<-path

fill<expr>->addto_currentpicture.contour↑(EXPR0)

counterclockwise<primary>->begingroup.interim.autorounding:=0;if.turningnumber(
EXPR2)<=0:reverse.fi(EXPR2)endgroup
(SUFFIX0)<-
(SUFFIX1)<-counterclockwise
(EXPR2)<-path
{begingroup}
{interim}
{autorounding:=0}
{if}
{turningnumber(path)}
{(1)<=(0)}
{false}
{endgroup}
(EXPR0)<-path

addto_currentpicture->addto.currentpicture
{addto}

↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-path
{begingroup}
{(path)transformed((0,0,1,0,0,1))}
{endgroup}
Path at line 26, before subdivision into octants:
(15.5,0.50002)..controls (12.1667,0.50002) and (12.1667,5.49995)
 ..(15.5,5.49995)..controls (22.19969,5.49995) and (17.46704,-7.5)
 ..(24.16673,-7.5)..controls (27.34901,-7.5) and (28.50003,-3.6672)
 ..(28.50003,0)..controls (28.50002,0) and (28.5,0)
 ..(28.49998,0)..controls (28.49998,-2.03265) and (26.63565,-3.51515)
 ..(24.51537,-3.51515)..controls (19.53639,-3.51515) and (20.47897,5.5)
 ..(15.5,5.5)..controls (12.16664,5.5) and (12.16664,0.49997)
 ..(15.5,0.49997)..controls (15.5,0.49998) and (15.5,0.5)
 ..cycle

Cycle spec at line 26, after subdivision and autorounding:
(15.5,0.50005) % beginning in octant `Wn'
   ..controls (14.79822,0.50005) and (14.34613,0.65388)
 ..(14.09998,0.90004) % segment 0
% entering octant `Nw'
   ..controls (13.69998,1.30003) and (13.5,2.10716)
 ..(13.5,3.00002) % segment 0
% entering octant `Ne'
   ..controls (13.5,3.90996) and (13.67657,4.67657)
 ..(14.02972,5.02972) % segment 0
% entering octant `En'
   ..controls (14.31522,5.31522) and (14.91962,5.5)
 ..(15.91933,5.5) % segment 0
% entering octant `Es'
   ..controls (17.0448,5.5) and (17.81244,5.18755)
 ..(18.33705,4.66293) % segment 1
% entering octant `Se'
   ..controls (20.56503,2.43495) and (19.54788,-4.54788)
 ..(21.77585,-6.77585) % segment 1
% entering octant `Es'
   ..controls (22.2297,-7.2297) and (23.02022,-7.5)
 ..(24.30649,-7.5) % segment 1
% entering octant `En'
   ..controls (25.141,-7.5) and (25.85887,-7.14114)
 ..(26.4681,-6.53192) % segment 2
% entering octant `Ne'
   ..controls (27.92651,-5.0735) and (28.5,-2.23248)
 ..(28.5,0.5) % segment 2
% entering octant `Nw'
% entering octant `Wn'
% entering octant `Ws'
   ..controls (28.49998,0.5) and (28.49997,0.5)
 ..(28.49995,0.5) % segment 3
% entering octant `Sw'
   ..controls (28.49995,-0.86049) and (28.12625,-1.87373)
 ..(27.53378,-2.4662) % segment 4
% entering octant `Ws'
   ..controls (26.88669,-3.1133) and (25.76172,-3.5)
 ..(24.38681,-3.5) % segment 4
% entering octant `Wn'
   ..controls (23.00072,-3.5) and (22.14682,-3.14682)
 ..(21.59389,-2.59389) % segment 5
% entering octant `Nw'
   ..controls (19.91936,-0.91936) and (19.31438,2.68562)
 ..(17.63985,4.36015) % segment 5
% entering octant `Wn'
   ..controls (16.94429,5.05571) and (16.12334,5.5)
 ..(15.08066,5.5) % segment 5
% entering octant `Ws'
   ..controls (13.96617,5.5) and (13.30266,5.30266)
 ..(13.00159,5.00159) % segment 6
% entering octant `Sw'
   ..controls (12.6672,4.6672) and (12.5,3.91563)
 ..(12.5,2.99998) % segment 6
% entering octant `Se'
   ..controls (12.5,2.69048) and (12.80943,2.19055)
 ..(13.42827,1.57172) % segment 6
% entering octant `Es'
   ..controls (14.06795,0.93204) and (14.79362,0.5)
 ..(15.5,0.5) % segment 6
% entering octant `En'
% entering octant `Ne'
   ..controls (15.5,0.50002) and (15.5,0.50003)
 ..(15.5,0.50005) % segment 7
% entering octant `Nw'
 & cycle

Tracing edges at line 26: (weight 1)
@ Octant Wn (1 offset), from (16,0.50005) to (14.59998,0.90004)
@ transition line 2, from (16,0.50005) to (15.5,1.00005)
@ transition line 1, from (14.09998,1.40004) to (14.09998,1.40004)
@ retrograde line from (14.09998,1.40004) to (14.59998,0.90004)
@ Octant Nw (0 offsets), from (14.59998,0.90004) to (14,3.00002)
@ transition line 0, from (14.59998,0.90004) to (14.59998,0.90004)
(14,1)
@ Octant Ne (0 offsets), from (14,3.00002) to (14.52972,5.02972)
@ transition line 1, from (14.52972,5.02972) to (14.52972,5.02972)
@ Octant En (1 offset), from (14.52972,5.02972) to (15.91933,5)
@ retrograde line from (14.52972,5.02972) to (14.02972,4.52972)
@ transition line 0, from (14.02972,4.52972) to (14.02972,4.52972)
@ transition line 1, from (15.91933,5) to (16.41933,5.5)
(14,5)(16,5)
@ retrograde line from (16.41933,5.5) to (15.91933,5)
(16,6)
@ Octant Es (1 offset), from (15.91933,5) to (17.83705,4.66293)
@ retrograde line from (15.91933,5) to (15.41933,5.5)
(16,5)(15,5)
@ transition line 2, from (15.41933,5.5) to (15.91933,5)
@ transition line 1, from (18.33705,4.16293) to (18.33705,4.16293)
(15,6)(15,5)(18,5)
@ retrograde line from (18.33705,4.16293) to (17.83705,4.66293)
(18,4)
@ Octant Se (0 offsets), from (17.83705,4.66293) to (21.27585,-6.77585)
@ transition line 0, from (17.83705,4.66293) to (17.83705,4.66293)
(18,5)(18,4)(19,4)(19,-1)(20,-1)(20,-6)(21,-6)
@ Octant Es (1 offset), from (21.27585,-6.77585) to (24.30649,-8)
@ transition line 2, from (21.27585,-6.77585) to (21.77585,-7.27585)
@ transition line 1, from (24.30649,-8) to (24.30649,-8)
(21,-7)(22,-7)
@ Octant En (1 offset), from (24.30649,-8) to (26.9681,-6.53192)
@ transition line 0, from (24.30649,-8) to (24.30649,-8)
@ transition line 1, from (26.4681,-7.03192) to (26.9681,-6.53192)
(22,-8)(26,-8)
@ Octant Ne (0 offsets), from (26.9681,-6.53192) to (29,0.5)
@ transition line 1, from (29,0.5) to (29,0.5)
(26,-7)(27,-7)(27,-6)(28,-6)(28,-4)(29,-4)
@ Octant Nw (0 offsets), from (29,0.5) to (29,0.5)
@ transition line 0, from (29,0.5) to (29,0.5)
@ Octant Wn (1 offset), from (29,0.5) to (28.5,1)
@ transition line 2, from (29,0.5) to (28.5,1)
@ transition line 1, from (28.5,1) to (28.5,1)
@ Octant Ws (1 offset), from (28.5,1) to (27.99995,0.5)
@ transition line 0, from (28.5,1) to (28.5,1)
@ transition line 1, from (28.49995,1) to (27.99995,0.5)
@ Octant Sw (0 offsets), from (27.99995,0.5) to (27.03378,-2.4662)
@ transition line 1, from (27.03378,-2.4662) to (27.03378,-2.4662)
(29,1)(28,1)
@ Octant Ws (1 offset), from (27.03378,-2.4662) to (24.38681,-3)
@ retrograde line from (27.03378,-2.4662) to (27.53378,-1.9662)
@ transition line 0, from (27.53378,-1.9662) to (27.53378,-1.9662)
@ transition line 1, from (24.38681,-3) to (23.88681,-3.5)
(28,-2)(27,-2)
@ retrograde line from (23.88681,-3.5) to (24.38681,-3)
@ Octant Wn (1 offset), from (24.38681,-3) to (22.09389,-2.59389)
@ retrograde line from (24.38681,-3) to (24.88681,-3.5)
@ transition line 2, from (24.88681,-3.5) to (24.38681,-3)
@ transition line 1, from (21.59389,-2.09389) to (21.59389,-2.09389)
(27,-3)(22,-3)
@ retrograde line from (21.59389,-2.09389) to (22.09389,-2.59389)
(22,-2)
@ Octant Nw (0 offsets), from (22.09389,-2.59389) to (18.13985,4.36015)
@ transition line 0, from (22.09389,-2.59389) to (22.09389,-2.59389)
(22,-3)(22,-2)(21,-2)(21,0)(20,0)(20,2)(19,2)
@ Octant Wn (1 offset), from (18.13985,4.36015) to (15.08066,6)
@ transition line 2, from (18.13985,4.36015) to (17.63985,4.86015)
@ transition line 1, from (15.08066,6) to (15.08066,6)
(19,4)(18,4)(18,5)(17,5)
@ Octant Ws (1 offset), from (15.08066,6) to (12.50159,5.00159)
@ transition line 0, from (15.08066,6) to (15.08066,6)
@ transition line 1, from (13.00159,5.50159) to (12.50159,5.00159)
(17,6)(13,6)
@ Octant Sw (0 offsets), from (12.50159,5.00159) to (12,2.99998)
@ transition line 1, from (12,2.99998) to (12,2.99998)
(13,5)(12,5)
@ Octant Se (0 offsets), from (12,2.99998) to (12.92827,1.57172)
@ transition line 0, from (12,2.99998) to (12,2.99998)
@ Octant Es (1 offset), from (12.92827,1.57172) to (15.5,0)
@ transition line 2, from (12.92827,1.57172) to (13.42827,1.07172)
@ transition line 1, from (15.5,0) to (15.5,0)
(12,2)(13,2)(13,1)(14,1)
@ Octant En (1 offset), from (15.5,0) to (16,0.5)
@ transition line 0, from (15.5,0) to (15.5,0)
@ transition line 1, from (15.5,0) to (16,0.5)
(14,0)(16,0)
@ Octant Ne (0 offsets), from (16,0.5) to (16,0.50005)
@ transition line 1, from (16,0.50005) to (16,0.50005)
@ Octant Nw (0 offsets), from (16,0.50005) to (16,0.50005)
@ transition line 0, from (16,0.50005) to (16,0.50005)
(16,1).

{fi}

math_fit(EXPR0)(EXPR1)->
{(0.3)*(6.83333)}
{-(2.05002)}
{(-2.05002)*(0)}
{(0.5)*(0.55556)}
{(0)-(0.27779)}
(EXPR0)<--0.27779

ic#->begingroup.charic.endgroup
(SUFFIX0)<-ic
(SUFFIX1)<-#
{begingroup}
{endgroup}
(EXPR1)<-0

penlabels@#(TEXT3)->begingroup.if.proofing>1:forsuffixes$$=l,,r:forsuffixes$=(T
EXT3):makelabel(SUFFIX2)(str$ $$,z$ $$);endfor.endfor.fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-penlabels
(SUFFIX2)<-
(TEXT3)<-1,2,3,4,5,6,7
{begingroup}
{if}
{(0)>(1)}
{false}
{endgroup}

endchar->echar;stop"done with char "&decimal.charcode&". "

echar->scantokens.extra_endchar;if.proofing>0:makebox(proofrule);fi.chardx:=w;s
hipit;if.displaying>0:makebox(screenrule);showit;fi.endgroup
{scantokens}
{(31)+(1)}
{r:=32}
## r=32
{(32)-(0)}
{w:=32}
## w=32
{if}
{(0)>(0)}
{false}
{chardx:=32}

shipit->shipout.currentpicture
{shipout}
[81]
Edge structure at line 28 (just shipped out):
row 27: | 12+ 19-
row 26: | 10+ 13- 18+ 21-
row 25: | 8+ 11- 20+ 23-
row 24: | 7+ 10- 21+ 24-
row 23: | 6+ 9- 22+ 25-
row 22: | 5+ 9- 22+ 26-
row 21: | 4+ 8- 23+ 27-
row 20: | 4+ 8- 23+ 27-
row 19: | 3+ 8- 23+ 28-
row 18: | 3+ 7- 24+ 28-
row 17: | 3+ 7- 24+ 28-
row 16: | 2+ 7- 24+ 29-
row 15: | 2+ 7- 24+ 29-
row 14: | 2+ 7- 24+ 29-
row 13: | 2+ 7- 24+ 29-
row 12: | 2+ 7- 24+ 29-
row 11: | 2+ 7- 24+ 29-
row 10: | 2+ 7- 24+ 29-
row 9: | 3+ 7- 24+ 28-
row 8: | 3+ 8- 23+ 28-
row 7: | 4+ 8- 23+ 27-
row 6: | 4+ 8- 23+ 27-
row 5: | 5+ 9- 13+ 15- 15+ 16- 16+ 17- 22+ 26-
row 4: | 6+ 9- 12+ 14- 18- 18- 18+ 18+ 22+ 25-
row 3: | 7+ 10- 12+ 14- 19- 19+ 21+ 24-
row 2: | 8+ 11- 12+ 14- 19- 19+ 20+ 23-
row 1: | 10+ 13- 13+ 14- 18+ 19+ 20- 21-
row 0: | 12+ 14+ 16- 19- 19+ 20- 28+ 29-
row -1: | 19+ 21- 28+ 29-
row -2: | 20+ 21- 28+ 29-
row -3: | 20+ 22- 22- 22+ 27+ 29-
row -4: | 20+ 29-
row -5: | 20+ 28-
row -6: | 20+ 28-
row -7: | 21+ 27-
row -8: | 22+ 26-

{if}
{(0)>(0)}
{false}
{endgroup}

stop<expr>->message(EXPR0);gobble(readstring)
{decimal(81)}
{("done with char ")&("81")}
{("done with char 81")&(". ")}
(EXPR0)<-"done with char 81. "
{message}
done with char 81. 
gobble(EXPR0)->
{readstring}

(EXPR0)<-""
) 
Here is how much of METAFONT's memory you used:
 194 strings out of 277
 1679 string characters out of 9969
 12971 words of memory out of 60001
 656 symbolic tokens out of 2100
 9i,63n,20r,16p,175b stack positions out of 30i,100n,300r,150p,500b

Font metrics written on RTEST0.TFM[CM,DEK]
Output written on RTEST0.GF[CM,DEK] (1 character, 360 bytes).